home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / PhoneMachine.cpt / Phone Answerer / card_3051.txt < prev    next >
Text File  |  1987-11-29  |  16KB  |  822 lines
  1. -- card: 3051 from stack: in
  2. -- bmap block id: 3217
  3. -- flags: 4000
  4. -- background id: 2669
  5. -- name: Main
  6. ----- HyperTalk script -----
  7.  
  8. on openCard
  9.   --show message box
  10.   --show background button "menuToggle"
  11. end openCard
  12.  
  13.  
  14. on idle
  15.   global fieldLines
  16.   if SPortHasChar(1)
  17.   then
  18.   put recvUpTo(1,return,2,false,false) into theString
  19.   if first character of theString is lineFeed
  20.   then put empty into first character of theString
  21.  
  22.   --put theString after field "Debug"
  23.   --repeat while the number of lines in field "Debug" > 10
  24.   --delete first line of field "Debug"
  25.   --end repeat
  26.  
  27.   if char 1 to 4 of theString = "RING"
  28.   then
  29.   put "Phone rang on" && the date && "at" && the long time && return after card field "inField"
  30.   play "harpsichord" tempo 220 "ct e g c e g c e g c e g c e g c e g c e g"
  31. end if
  32.  
  33. repeat while the number of lines in card field "inField" > fieldLines
  34.   delete first line of card field "inField"
  35. end repeat
  36.  
  37. end if
  38.  
  39. end idle
  40.  
  41. on returnKey
  42.   sendSPort 1,false,message box & return
  43.   put empty into message box
  44.   hide message box
  45. end returnKey
  46.  
  47. on clearKey
  48.   sendSPort 1,false,linefeed
  49. end clearKey
  50.  
  51.  
  52.  
  53. -- part 2 (button)
  54. -- low flags: 00
  55. -- high flags: 0000
  56. -- rect: left=158 top=162 right=183 bottom=179
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: 
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   dial "1"
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 12 (button)
  73. -- low flags: 00
  74. -- high flags: 0000
  75. -- rect: left=182 top=162 right=183 bottom=203
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: 
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   dial "2"
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 13 (button)
  92. -- low flags: 00
  93. -- high flags: 0000
  94. -- rect: left=206 top=162 right=183 bottom=227
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: 
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   dial "3"
  106. end mouseUp
  107.  
  108.  
  109.  
  110. -- part 14 (button)
  111. -- low flags: 00
  112. -- high flags: 0000
  113. -- rect: left=158 top=186 right=207 bottom=179
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: 
  122. ----- HyperTalk script -----
  123. on mouseUp
  124.   dial "4"
  125. end mouseUp
  126.  
  127.  
  128.  
  129. -- part 15 (button)
  130. -- low flags: 00
  131. -- high flags: 0000
  132. -- rect: left=182 top=186 right=207 bottom=203
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 0 / 0
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: 
  141. ----- HyperTalk script -----
  142. on mouseUp
  143.   dial "5"
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 16 (button)
  149. -- low flags: 00
  150. -- high flags: 0000
  151. -- rect: left=206 top=186 right=207 bottom=227
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: 
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   dial "6"
  163. end mouseUp
  164.  
  165.  
  166.  
  167. -- part 17 (button)
  168. -- low flags: 00
  169. -- high flags: 0000
  170. -- rect: left=158 top=210 right=231 bottom=179
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: 
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   dial "7"
  182. end mouseUp
  183.  
  184.  
  185.  
  186. -- part 18 (button)
  187. -- low flags: 00
  188. -- high flags: 0000
  189. -- rect: left=182 top=210 right=231 bottom=203
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 1
  193. -- font id: 0
  194. -- text size: 12
  195. -- style flags: 0
  196. -- line height: 16
  197. -- part name: 
  198. ----- HyperTalk script -----
  199. on mouseUp
  200.   dial "8"
  201. end mouseUp
  202.  
  203.  
  204.  
  205. -- part 19 (button)
  206. -- low flags: 00
  207. -- high flags: 0000
  208. -- rect: left=206 top=210 right=231 bottom=227
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 0 / 0
  211. -- text alignment: 1
  212. -- font id: 0
  213. -- text size: 12
  214. -- style flags: 0
  215. -- line height: 16
  216. -- part name: 
  217. ----- HyperTalk script -----
  218. on mouseUp
  219.   dial "9"
  220. end mouseUp
  221.  
  222.  
  223.  
  224. -- part 20 (button)
  225. -- low flags: 00
  226. -- high flags: 0000
  227. -- rect: left=158 top=234 right=255 bottom=179
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 1
  231. -- font id: 0
  232. -- text size: 12
  233. -- style flags: 0
  234. -- line height: 16
  235. -- part name: 
  236. ----- HyperTalk script -----
  237. on mouseUp
  238.   dial "*"
  239. end mouseUp
  240.  
  241.  
  242.  
  243. -- part 21 (button)
  244. -- low flags: 00
  245. -- high flags: 0000
  246. -- rect: left=182 top=234 right=255 bottom=203
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 0 / 0
  249. -- text alignment: 1
  250. -- font id: 0
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: 
  255. ----- HyperTalk script -----
  256. on mouseUp
  257.   dial "0"
  258. end mouseUp
  259.  
  260.  
  261.  
  262. -- part 22 (button)
  263. -- low flags: 00
  264. -- high flags: 0000
  265. -- rect: left=206 top=234 right=255 bottom=227
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 0 / 0
  268. -- text alignment: 1
  269. -- font id: 0
  270. -- text size: 12
  271. -- style flags: 0
  272. -- line height: 16
  273. -- part name: 
  274. ----- HyperTalk script -----
  275. on mouseUp
  276.   dial "#"
  277. end mouseUp
  278.  
  279.  
  280.  
  281. -- part 23 (field)
  282. -- low flags: 00
  283. -- high flags: 0002
  284. -- rect: left=145 top=17 right=32 bottom=225
  285. -- title width / last selected line: 0
  286. -- icon id / first selected line: 0 / 0
  287. -- text alignment: 0
  288. -- font id: 2
  289. -- text size: 10
  290. -- style flags: 0
  291. -- line height: 13
  292. -- part name: p1
  293.  
  294.  
  295. -- part 27 (button)
  296. -- low flags: 00
  297. -- high flags: 2000
  298. -- rect: left=225 top=17 right=32 bottom=240
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 1
  302. -- font id: 0
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: 
  307. ----- HyperTalk script -----
  308. on mouseUp
  309.   get card field "p1"
  310.   if it is empty then ask "Dial what number?"
  311.   if it is not empty then
  312.     push this card
  313.     visual effect zoom open
  314.     go to stack "Phone"
  315.     dial it
  316.     pop card
  317.   end if
  318. end mouseUp
  319.  
  320.  
  321.  
  322. -- part 28 (button)
  323. -- low flags: 00
  324. -- high flags: 2000
  325. -- rect: left=225 top=31 right=46 bottom=240
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 0 / 0
  328. -- text alignment: 1
  329. -- font id: 0
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: 
  334. ----- HyperTalk script -----
  335. on mouseUp
  336.   get card field "p2"
  337.   if it is empty then ask "Dial what number?"
  338.   if it is not empty then
  339.     push this card
  340.     visual effect zoom open
  341.     go to stack "Phone"
  342.     dial it
  343.     pop card
  344.   end if
  345.  
  346. end mouseUp
  347.  
  348.  
  349.  
  350. -- part 29 (button)
  351. -- low flags: 00
  352. -- high flags: 2000
  353. -- rect: left=225 top=45 right=60 bottom=240
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 0 / 0
  356. -- text alignment: 1
  357. -- font id: 0
  358. -- text size: 12
  359. -- style flags: 0
  360. -- line height: 16
  361. -- part name: 
  362. ----- HyperTalk script -----
  363. on mouseUp
  364.   get card field "p3"
  365.   if it is empty then ask "Dial what number?"
  366.   if it is not empty then
  367.     push this card
  368.     visual effect zoom open
  369.     go to stack "Phone"
  370.     dial it
  371.     pop card
  372.   end if
  373.  
  374. end mouseUp
  375.  
  376.  
  377.  
  378. -- part 30 (button)
  379. -- low flags: 00
  380. -- high flags: 2000
  381. -- rect: left=225 top=59 right=74 bottom=240
  382. -- title width / last selected line: 0
  383. -- icon id / first selected line: 0 / 0
  384. -- text alignment: 1
  385. -- font id: 0
  386. -- text size: 12
  387. -- style flags: 0
  388. -- line height: 16
  389. -- part name: 
  390. ----- HyperTalk script -----
  391. on mouseUp
  392.   get card field "p4"
  393.   if it is empty then ask "Dial what number?"
  394.   if it is not empty then
  395.     push this card
  396.     visual effect zoom open
  397.     go to stack "Phone"
  398.     dial it
  399.     pop card
  400.   end if
  401.  
  402. end mouseUp
  403.  
  404.  
  405.  
  406. -- part 31 (button)
  407. -- low flags: 00
  408. -- high flags: 2000
  409. -- rect: left=225 top=73 right=88 bottom=240
  410. -- title width / last selected line: 0
  411. -- icon id / first selected line: 0 / 0
  412. -- text alignment: 1
  413. -- font id: 0
  414. -- text size: 12
  415. -- style flags: 0
  416. -- line height: 16
  417. -- part name: 
  418. ----- HyperTalk script -----
  419. on mouseUp
  420.   get card field "p5"
  421.   if it is empty then ask "Dial what number?"
  422.   if it is not empty then
  423.     push this card
  424.     visual effect zoom open
  425.     go to stack "Phone"
  426.     dial it
  427.     pop card
  428.   end if
  429.  
  430. end mouseUp
  431.  
  432.  
  433.  
  434. -- part 32 (button)
  435. -- low flags: 00
  436. -- high flags: 2000
  437. -- rect: left=225 top=87 right=102 bottom=240
  438. -- title width / last selected line: 0
  439. -- icon id / first selected line: 0 / 0
  440. -- text alignment: 1
  441. -- font id: 0
  442. -- text size: 12
  443. -- style flags: 0
  444. -- line height: 16
  445. -- part name: 
  446. ----- HyperTalk script -----
  447. on mouseUp
  448.   get card field "p6"
  449.   if it is empty then ask "Dial what number?"
  450.   if it is not empty then
  451.     push this card
  452.     visual effect zoom open
  453.     go to stack "Phone"
  454.     dial it
  455.     pop card
  456.   end if
  457.  
  458. end mouseUp
  459.  
  460.  
  461.  
  462. -- part 33 (button)
  463. -- low flags: 00
  464. -- high flags: 2000
  465. -- rect: left=225 top=101 right=116 bottom=240
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 0 / 0
  468. -- text alignment: 1
  469. -- font id: 0
  470. -- text size: 12
  471. -- style flags: 0
  472. -- line height: 16
  473. -- part name: 
  474. ----- HyperTalk script -----
  475. on mouseUp
  476.   get card field "p7"
  477.   if it is empty then ask "Dial what number?"
  478.   if it is not empty then
  479.     push this card
  480.     visual effect zoom open
  481.     go to stack "Phone"
  482.     dial it
  483.     pop card
  484.   end if
  485.  
  486. end mouseUp
  487.  
  488.  
  489.  
  490. -- part 34 (button)
  491. -- low flags: 00
  492. -- high flags: 2000
  493. -- rect: left=225 top=115 right=130 bottom=240
  494. -- title width / last selected line: 0
  495. -- icon id / first selected line: 0 / 0
  496. -- text alignment: 1
  497. -- font id: 0
  498. -- text size: 12
  499. -- style flags: 0
  500. -- line height: 16
  501. -- part name: 
  502. ----- HyperTalk script -----
  503. on mouseUp
  504.   get card field "p8"
  505.   if it is empty then ask "Dial what number?"
  506.   if it is not empty then
  507.     push this card
  508.     visual effect zoom open
  509.     go to stack "Phone"
  510.     dial it
  511.     pop card
  512.   end if
  513.  
  514. end mouseUp
  515.  
  516.  
  517.  
  518. -- part 35 (button)
  519. -- low flags: 00
  520. -- high flags: 2000
  521. -- rect: left=225 top=129 right=144 bottom=240
  522. -- title width / last selected line: 0
  523. -- icon id / first selected line: 0 / 0
  524. -- text alignment: 1
  525. -- font id: 0
  526. -- text size: 12
  527. -- style flags: 0
  528. -- line height: 16
  529. -- part name: 
  530. ----- HyperTalk script -----
  531. on mouseUp
  532.   get card field "p9"
  533.   if it is empty then ask "Dial what number?"
  534.   if it is not empty then
  535.     push this card
  536.     visual effect zoom open
  537.     go to stack "Phone"
  538.     dial it
  539.     pop card
  540.   end if
  541.  
  542. end mouseUp
  543.  
  544.  
  545.  
  546. -- part 36 (button)
  547. -- low flags: 00
  548. -- high flags: 2000
  549. -- rect: left=225 top=143 right=158 bottom=240
  550. -- title width / last selected line: 0
  551. -- icon id / first selected line: 0 / 0
  552. -- text alignment: 1
  553. -- font id: 0
  554. -- text size: 12
  555. -- style flags: 0
  556. -- line height: 16
  557. -- part name: 
  558. ----- HyperTalk script -----
  559. on mouseUp
  560.   get card field "p10"
  561.   if it is empty then ask "Dial what number?"
  562.   if it is not empty then
  563.     push this card
  564.     visual effect zoom open
  565.     go to stack "Phone"
  566.     dial it
  567.     pop card
  568.   end if
  569.  
  570. end mouseUp
  571.  
  572.  
  573.  
  574. -- part 39 (field)
  575. -- low flags: 00
  576. -- high flags: 0002
  577. -- rect: left=145 top=31 right=46 bottom=225
  578. -- title width / last selected line: 0
  579. -- icon id / first selected line: 0 / 0
  580. -- text alignment: 0
  581. -- font id: 2
  582. -- text size: 10
  583. -- style flags: 0
  584. -- line height: 13
  585. -- part name: p2
  586.  
  587.  
  588. -- part 40 (field)
  589. -- low flags: 00
  590. -- high flags: 0002
  591. -- rect: left=145 top=45 right=60 bottom=225
  592. -- title width / last selected line: 0
  593. -- icon id / first selected line: 0 / 0
  594. -- text alignment: 0
  595. -- font id: 2
  596. -- text size: 10
  597. -- style flags: 0
  598. -- line height: 13
  599. -- part name: p3
  600.  
  601.  
  602. -- part 41 (field)
  603. -- low flags: 00
  604. -- high flags: 0002
  605. -- rect: left=145 top=59 right=74 bottom=225
  606. -- title width / last selected line: 0
  607. -- icon id / first selected line: 0 / 0
  608. -- text alignment: 0
  609. -- font id: 2
  610. -- text size: 10
  611. -- style flags: 0
  612. -- line height: 13
  613. -- part name: p4
  614.  
  615.  
  616. -- part 42 (field)
  617. -- low flags: 00
  618. -- high flags: 0002
  619. -- rect: left=145 top=73 right=88 bottom=225
  620. -- title width / last selected line: 0
  621. -- icon id / first selected line: 0 / 0
  622. -- text alignment: 0
  623. -- font id: 2
  624. -- text size: 10
  625. -- style flags: 0
  626. -- line height: 13
  627. -- part name: p5
  628.  
  629.  
  630. -- part 43 (field)
  631. -- low flags: 00
  632. -- high flags: 0002
  633. -- rect: left=145 top=87 right=102 bottom=225
  634. -- title width / last selected line: 0
  635. -- icon id / first selected line: 0 / 0
  636. -- text alignment: 0
  637. -- font id: 2
  638. -- text size: 10
  639. -- style flags: 0
  640. -- line height: 13
  641. -- part name: p6
  642.  
  643.  
  644. -- part 44 (field)
  645. -- low flags: 00
  646. -- high flags: 0002
  647. -- rect: left=145 top=101 right=116 bottom=225
  648. -- title width / last selected line: 0
  649. -- icon id / first selected line: 0 / 0
  650. -- text alignment: 0
  651. -- font id: 2
  652. -- text size: 10
  653. -- style flags: 0
  654. -- line height: 13
  655. -- part name: p7
  656.  
  657.  
  658. -- part 45 (field)
  659. -- low flags: 00
  660. -- high flags: 0002
  661. -- rect: left=145 top=115 right=130 bottom=225
  662. -- title width / last selected line: 0
  663. -- icon id / first selected line: 0 / 0
  664. -- text alignment: 0
  665. -- font id: 2
  666. -- text size: 10
  667. -- style flags: 0
  668. -- line height: 13
  669. -- part name: p8
  670.  
  671.  
  672. -- part 46 (field)
  673. -- low flags: 00
  674. -- high flags: 0002
  675. -- rect: left=145 top=129 right=144 bottom=225
  676. -- title width / last selected line: 0
  677. -- icon id / first selected line: 0 / 0
  678. -- text alignment: 0
  679. -- font id: 2
  680. -- text size: 10
  681. -- style flags: 0
  682. -- line height: 13
  683. -- part name: p9
  684.  
  685.  
  686. -- part 47 (field)
  687. -- low flags: 00
  688. -- high flags: 0002
  689. -- rect: left=145 top=143 right=158 bottom=225
  690. -- title width / last selected line: 0
  691. -- icon id / first selected line: 0 / 0
  692. -- text alignment: 0
  693. -- font id: 2
  694. -- text size: 10
  695. -- style flags: 0
  696. -- line height: 13
  697. -- part name: p10
  698.  
  699.  
  700. -- part 48 (button)
  701. -- low flags: 00
  702. -- high flags: 2000
  703. -- rect: left=457 top=291 right=317 bottom=488
  704. -- title width / last selected line: 0
  705. -- icon id / first selected line: 20098 / 20098
  706. -- text alignment: 1
  707. -- font id: 0
  708. -- text size: 12
  709. -- style flags: 0
  710. -- line height: 16
  711. -- part name: go Home
  712. ----- HyperTalk script -----
  713. on mouseUp
  714.   put "Compacting stack to save you disk space..."
  715.   doMenu "Compact Stack"
  716.   hide message
  717.   visual effect dissolve
  718.   go "Home"
  719. end mouseUp
  720.  
  721.  
  722.  
  723. -- part 52 (button)
  724. -- low flags: 00
  725. -- high flags: 0000
  726. -- rect: left=158 top=256 right=277 bottom=227
  727. -- title width / last selected line: 0
  728. -- icon id / first selected line: 0 / 0
  729. -- text alignment: 1
  730. -- font id: 0
  731. -- text size: 12
  732. -- style flags: 0
  733. -- line height: 16
  734. -- part name: Baud Rate
  735. ----- HyperTalk script -----
  736. on mousedown
  737.   global baudRate
  738.  
  739.   put baudRate into NewbaudRate
  740.  
  741.   if baudRate = 300 then
  742.     put 1 into position
  743.   else if baudRate = 1200 then
  744.     put 2 into position
  745.   else if baudRate = 2400 then
  746.     put 3 into position
  747.   end if
  748.  
  749.   put the mouseloc into myPlace
  750.   put item 1 of myPlace - 20 into h
  751.   put item 2 of myPlace - 20 into v
  752.   get PopUpMenu("300;1200;2400", position, v, h)
  753.   put it into choice
  754.  
  755.   if choice = 1 then
  756.     put 300 into NewbaudRate
  757.   else if choice = 2 then
  758.     put 1200 into NewbaudRate
  759.   else if choice = 3 then
  760.     put 2400 into NewbaudRate
  761.   end if
  762.  
  763.   if baudRate <> NewbaudRate
  764.   then
  765.   put NewbaudRate into baudRate
  766.   setBaud baudRate
  767. end if
  768.  
  769. end mousedown
  770.  
  771.  
  772.  
  773. -- part 49 (field)
  774. -- low flags: 00
  775. -- high flags: 2002
  776. -- rect: left=255 top=33 right=261 bottom=498
  777. -- title width / last selected line: 0
  778. -- icon id / first selected line: 0 / 0
  779. -- text alignment: 0
  780. -- font id: 4
  781. -- text size: 9
  782. -- style flags: 0
  783. -- line height: 11
  784. -- part name: inField
  785.  
  786.  
  787. -- part 53 (button)
  788. -- low flags: 00
  789. -- high flags: 2000
  790. -- rect: left=419 top=291 right=317 bottom=450
  791. -- title width / last selected line: 0
  792. -- icon id / first selected line: 2478 / 2478
  793. -- text alignment: 1
  794. -- font id: 0
  795. -- text size: 12
  796. -- style flags: 0
  797. -- line height: 16
  798. -- part name: About
  799. ----- HyperTalk script -----
  800. on mouseUp
  801.   visual effect iris open
  802.   go to card "About"
  803. end mouseUp
  804.  
  805.  
  806.  
  807. -- part contents for card part 23
  808. ----- text -----
  809. 267-0201
  810.  
  811. -- part contents for card part 49
  812. ----- text -----
  813. Phone rang on 11/29/87 at 7:58:16 PM 
  814. Phone rang on 11/29/87 at 7:58:29 PM 
  815. Phone rang on 11/29/87 at 8:13:32 PM 
  816. Phone rang on 11/29/87 at 8:13:39 PM 
  817. Phone rang on 11/29/87 at 8:13:43 PM 
  818.  
  819.  
  820. -- part contents for background part 2
  821. ----- text -----
  822. 2400